home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / jazclib1.arc / JZRGTJST.C < prev    next >
Encoding:
Text File  |  1986-02-11  |  361 b   |  21 lines
  1. char *jzrgtjst(fstr,flen)
  2. char *fstr;
  3. int flen;
  4. {
  5.   static char wbuf[256];
  6.   int len,w;
  7.   char wtemp[256];
  8.  
  9.   strcpy(wtemp,fstr);
  10.   w = strlen(wtemp);
  11.   len = w-1;
  12.  
  13.   if (wtemp[len] == ' ') {
  14.     do len --; while(wtemp[len] == ' ');
  15.     wtemp[++len] = 0;
  16.   }
  17.  
  18.   sprintf(wbuf,"%s%s",jzpad(flen - strlen(wtemp),' '),wtemp);
  19.   return(wbuf);
  20. }
  21.